
DATA GENERAL 
CORPORATION 

Southboro, 
Massachusetts 01772 
(617) 485-9100 



PROGRAM 
Binary Format Punch 



TAPES 

8K HtahCm iWy- CQi-OOOOU-OO 

High vt ore binary : 091-000005 

Low core binary; 091-000006 

ASCII source: 090-000007 



ABSTRACT 

The Binary Punch Program is a i\OVA utility routine that punches 
operator specified ranges of memory in binary format acceptable 
as input to the Binary Loader. The program uses either the 
high-speed paper tape punch or the Teletype ASR punch. It is 
available in two binary versions which, after loading, reside 
in different areas of memory. It is also available as an ASCII 
source tape to enable the user to change the origin and 
reassemble the program. 



Copyright (C) 1969 



093-000001-00 



RE QUI REMENTS 

1. 1 Memory 

IK or larger alterable memory, 

1.2 Equipment 

Teletype ASR or paper tape punch 

1.3 External subroutines 
N one 

1.4 Other 
None 

OPERATING PROCEDURE 

2.1 Calling Sequence 

The Binary Format Punch program must be loaded in the 
standard manner (see Binary Loader, 093-000003). To 
begin execution, enter the proper starting address 
(as given below) in the data switches, press RESET 
and then START. 



The program will punch blank tape leader and HALT. 
The user may then put address arguments in the data 
switches ( see 2.2). 

2 . 2 Input Format 

a. Enter the initial address of the block to be punched 
in the data switches. Press CONTINUE . 

b. Enter the final address of the block to be punched 
in the data switches. Press CONTINUE. The program 
will now punch the block and HALT. 



Teletype 

High-Speed Punch 



091-00005 

07400 

07401 



091-000006 

00400 

00401 



Other Versions 
N 
N+l 



c. If this was not the last block, proceed from step a. 
If this was the last block, set data switch 0 and 
press CONTINUE. The program will punch a few frames 
of tape and HALT . 

d. If the data just punched has a starting address, 
set it in the data switches (bit 0=0) and press 
CONTINUE , otherwise press CONTINUE (bit 0=1). 
The program will punch the start block, punch 
trailer, and HALT. 

e . Additional tapes may be generated by depressing 
CONTINUE and proceeding from step a. 

2 . 3 Output Format 

A binary tape acceptable as input to the Binary Loader. 

2 . 4 Error Returns 
None 

2.5 State of Active Registers upon Exit 
Not applicable 

2 . 6 Cautions to User 
None 

DISCUSSION 

3 . 1 Algorithms • 

The routine reads address and control information 
from the data switches. A PWORD subroutine is used 
to punch words, two tape frames per word. Checksums 
are calculated according to the block type. 

3.2 Limitations and Accuracy 



Not applicable 



3.3 



Size and Timing 



The routine requires 146 (octal) words of storage 
Its speed is limited by the output device , i.e. 
the paper tape punch or Teletype . 

3. 4 References 

See the Binary Loader write-up ( 093-000003) for a 
description of the binary tape format. 

3. 5 Flow Diagrams 
Not applicable . 

4. EXAMPLES AND/OR APPLICATIONS 

A standard debugging procedure is to load a binary tape , 
isolate program bugs, and overwrite (patch) the program 
locations that are in error. After a numbe r of over- 
writes have been made, or the routine is debugged, it 
is convenient to get a nev; object tape. The Binary 
Format Punch program enables the user to punch a new 
binary tape from the current state of memory. 

The ASCII source tape (090-000007) is provided to enable 
the user to create versions of the punch program with 
different origins . 

5. PROGRAM LISTING 

A listing of the high core routine follows. The low 
core routine is identical except that the origin is 
00400 instead of 07400. 



; BINARY - . PUNCH 

? 1. PRESS RESET 

; 2. SET SWITCHES- 0740KF0R PTP I ? 07400 ( FOR T TO ) 

; 3 . S . . RT 

; 4, PR OCR AH WILL PUNCH LEADER AND HALT 

I 5. A, IF DONE, SET 8IT0 AND PRESS CONTINUE, GO TO STEP 
16 

I B. IF HOT 03NSE. SET FIRST ADDRESS AND PRESS CONTINUE 

; C. AT HALT, SET FINAL ADDRESS AND PRESS CONTINUE 

! 0, DATA MILL iBE PUNCHEO » AT HAL T GO FO STEP 5 

; 6. IF PROGRAM IS- TO 8E STARTED, SET STARTING 

ADDRESS AND PRESS CONTINUE, ELSE PRESS CONTINUE. 
; PROGRAM WILL PUNCH TRAILER ANO HALT. 

5 PRESS CONT IMUlE TO START OVER AT STEP 4. 





007400 




•LOC 7400 






00040 3 


STARTS 


jnp ,*3 


? GET DEVICE CODE FOR TTO 


07401 


020541 




LOA 0, PTPO 


;GET CODE FOR PTP 


07402 


000402 




JHP . *2 




07403 


020540 




LOA OtTTOO 




07404 


062677 




I OR ST 




07405 


02453 7 




LOA 1, INST 




07406 


03053 7 




LDA 2, INST^l 




0740? 


107000 




ADD 0* 1 




07410 


113000 




ADD 0, 2 




07411 


044520 




ST k l.PUN 




07412 


050521 




ST A 2tPUN*2 




0741 3 


004506 


LOOP s 


JSR BLANK 


J PUNCH HLANKS 


07414 


177500 




- 3 00 4r* - ^ * ^ 


T^/cr- i * k 'ilMjfhV: fiUA/C'-l P$C6&A 


07415 


063077 


WHIN: 


HALT 




07416 


0 7047 7 




READS 2 




07417 


151112 




HOVL"« 2* 2. SIC 


;test bit o 


07420 


009454 




JHP DONE 


; ALL DONE 


07421 


063077 




HALF 


:0K, GE F F INAL ADDRESS 


074^2 


064477 




READS 1 




07423 


125100 




hovl ia 




07424 


125220 




HOVZR 1,1 


TCLEAR BIT 0 


07425 


050511 




ST A 2, FIRST 




07426 


044511 




ST A 1 , L AST 




07427 


030507 


BLOCK: 


LDA 2, FIRST 




07430 


024507 




LOA I, LAST 




07431 


141000 




HOV 2*0 




07432 


122000 




HOC 1*0 


; ACO = COUNT 


• ■"**"» 3 j 


&S4502 




LDA 3, C20 




07434 


11703 3 




ADDZ* fl ,^S« r 


5SEE IF COUNT. GE. 20(8) 




1&0400 




NEG 3,0 


;YES, SET TO 20 


07436 


155000 




HOV 2, 3 




07437 


114400 




SUB 0, 1 




07440 


054476 




ST A 3, FIRST 





07441 


A '\ 4 7 7 




ST A 


0* CNT 1 




0 7443 






ST A 


0, CNT 2 




0 744 1 


00445 0 




JSR 


PWORO 


'.PUNCH COUNT 


0 7 444 


1 4 1 ft A ,*5 




MOV 


2,0 




Q744S 


00&44 ^ 




JSR 


PWORO 


{PUNCH ADDRESS 








CALCULATE THE CHECK SUM 


07446 


0 20472 




I DA 


0* CNT I 




07447 


1 43000 




AOO 


2 ♦ 0 




07450 


1 5 5000 




HOV 


2. 3 




0745 1 


0 2 54 0 0 


f HK : 


LDA 






0745 2 


^ «- w %r \? 




AOO 


1 1 0 




0745 3 


1 75400 




INC 


3, 3 




0 7454 


0 i 046 4 




! S2 


C ft T 1 




07455 


000774 




JHP 


CHK 




0 7456 


1 00400 




MEG 


0* 0 




0745 7 


004414 




JS« 


PWORO 


; PUNCH THE CHECKSUN 


07460 


V C i. V ■ v? \? 




LDA 


0,0*2 




07461 


0044 1 ? 




JSR 


PWORO 


; PUNCH THE DATA WORD 


0 746? 


15 1 4ft o 




I*C 


2, 2 




07463 


010456 




IS2 


zni2 




07464 


000774 




JHr 




;CON T 1 NUE 


0 7465 


0044 3 4 




JSR 


3L ANK 




0 ? 4 6 6 


1 7 77 76 




-2 




; INTER SLOCK BLANKS 


07467 


0 3044 7 




LOS 


2, FIRST 




Q7470 


02 444 7 




U"?« 


1 , L AST 




07471 


1 46503 




SU8L 


2 , i.SWC 




07472 


000735 




JH? 


8LGCK 




0747 3 


00072 2 




JHP 


HA IN 








* ALL 








07474 


t 02520 

A V C -r C> W 


bj? ?v * 


SU82L 0,0 


; PUNCH A 1 


0 7475 


00441 6 




JSR 


PWORO 




07476 


063077 




HALT 




;G£T START I NG ADDRESS 


0 747? 


0 -\ o A 7 7 




READS 0 




0 7500 


10110? 




HOWL 


0,0, S2C 




0750 1 


! 0262 1 




SUBZR 0,0, SKP 






1 0 1 22 0 




NGVZH 0,0 




07503 


1 11000 




MOV 


0, 2 




07504 


004407 




JSR 


PWORO 




07505 


140000 




CON 


2,0 


; FORM CHECK-SUN 


07506 


004405 




JSR 


PWORO 


; and punch it 


07507 


00441 2 




JSR 


BLANK 




07510 


177500 




-100 






07511 


063077 




HALT 






07512 


000701 




JHP 


LOOP 





0751 3 054405 «§©§®S 

07514 004415 

07515 101300 

07516 004413 

07517 002401 

07520 000000 Saw: 

07521 05477-? BtAtUO 

07522 025400 

07523 102400 

07524 004405 

07525 125404 

07526 000775 

07527 010771 

07530 002770 

07531 063513 PUN* 

07532 000777 

07533 061113 

07534 001400 

07535 00002® C2N>: 

07536 000000 FIRST: 

07537 00 0000 t AST : 

07540 ooooo© cm i: 

07541 000000 C*T 2 : 

07542 000013 PTPfr: 
0754 3 000011 TTQO* 

07544 063500 INST: 

07545 061100 



A UORO IN ACO 
ST A 3,SRTN 
JSR PUN 

ho vs. o»o 

JSR PUN 
JMP dSRTN 
0 

ST A 3.SRTN 
IDA 1,0,3 
SUB 0, 0 
JSR PUN 
INC 1. l.SZR 
JNP .-3 
IS2 SRTN 
JMP dSRTN 
SKP3? PIP 
JHP . - 1 
00 AS 0,PTP 
JHP 0, 3 
20 
0 
0 

{} 

F'TP 

rm 

SKP82 0 
DO AS 0*0 



.ENO 



